home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 120 / Tiger_Disk_120_20xx_Tiger-Crew-Disk_de_Side_B.d64 / load turn. chars (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  662b  |  16 lines
  1. 10 ifa=0thena=1:load"turned*",8,1
  2. 20 poke53280,2:poke53281,2
  3. 30 print"[147]"tab(15)"tiger-disk":print""tab(14)"praesentiert"
  4. 40 print""tab(10)" zeichen-spielchen ":sys20112:gosub150:sys20112
  5. 50 print"um eine solche darstellung der chars":print"in deinen eigenen pro";
  6. 60 print"grammen zu zeigen,":print"musst du nix anderes machen, als einen"
  7. 70 print"zeichensatz mit dem char-turner":print"dieser disk zu bearbeiten -"
  8. 80 print"und die nachgeladene routine -icl.chars-dann mit   sys 20112  [146] ";
  9. 90 print"zu starten."
  10. 100 gosub150:sys20112:gosub150:sys20112:gosub150:sys20112:gosub150:sys20112
  11. 110 print"[150][150]space = [158]drehen / [155]prg.-ende: [158]f8"
  12. 120 geta$:ifa$<>" "anda$<>chr$(140)then120
  13. 130 ifa$=chr$(140)thensys64760
  14. 140 sys20112:fort=1to500:next:goto120
  15. 150 fort=1to1000:next:return
  16.